home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / elan1v5.arc / PLANE.ARC / POINTS.E < prev    next >
Text File  |  1989-03-10  |  573b  |  30 lines
  1. PACKET point:
  2.  
  3. LET POINT = STRUCT (REAL x, y);
  4.  
  5. POINT PROC point (REAL CONST a, b):
  6.   [a, b]
  7. ENDPROC point;
  8.  
  9. PROC picture point (POINT CONST v):
  10.   move (x0 + int (aspect * radius * XC v), y0 + int (radius * YC v));
  11.   plot pixel
  12. ENDPROC picture point;
  13.  
  14. REAL PROC abs (POINT CONST a):
  15.   sqrt (XC a * XC a + YC a * YC a)
  16. ENDPROC abs;
  17.  
  18. REAL OP YC (POINT CONST a):
  19.   a.y
  20. ENDOP YC;
  21.  
  22. REAL OP XC (POINT CONST a):
  23.   a.x
  24. ENDOP XC;
  25.  
  26. POINT OP * (POINT CONST a, b):
  27.   point (XC a * XC b - YC a * YC b, XC a * YC b + YC a * XC b)
  28. ENDOP *;
  29.  
  30. ENDPACKET point;əə